home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ MyComp Icons 1.xpl < prev    next >
Text File  |  2002-01-10  |  2KB  |  71 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH 1"="Appearance\Desktop\Icons\'My Computer' Options"
  5. "UIPATH 2"="Appearance\Desktop\Icons\Visible Icons"
  6. "NAME"="Visible Icons in My Computer"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show Dial-Up Networking"
  9. "TEXT 2"="Show Scheduled Tasks"
  10. "TEXT 3"="Show Web Folders"
  11. "DESCRIPTION 1"="This plug-in lets you control what icons are shown in My Computer besides your drives. You can't get rid of the Control Panel or Printers folders, and to see changes, you may need to press F5 in Explorer or My Computer."
  12. "DESCRIPTION 2"="To show an item in My Computer, enable it. To hide it, disable it."
  13. "DESCRIPTION 3"="These settings affects all users of this computer."
  14. "COMMENT 1"="Thanks to Axcel216 [axcel216@aol.com] and Skyler Boerens [NemesisEra@hotmail.com] for this tip."
  15. "VERSION"="1.12"
  16. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  17. "CONTACTURL"="http://www.xteq.com/"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  19.  
  20. sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\MyComputer\NameSpace\"
  21. sDUN="{992CFFA0-F557-101A-88EC-00DD010CCC48}"
  22. sSCH="{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
  23. sWEB="{BDEADF00-C265-11d0-BCED-00A0C90AB50F}"
  24.  
  25. SUB Plugin_Initialize
  26.  if RegPathExists(sPath & sDUN) then
  27.   Call SetUIElement(1,true)
  28.  end if
  29.  
  30.  if RegPathExists(sPath & sSCH) then
  31.   Call SetUIElement(2,true)
  32.  end if
  33.  
  34.  if RegPathExists(sPath & sWEB) then
  35.   Call SetUIElement(3,true)
  36.  end if
  37. END SUB
  38.  
  39. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  b=GetUIElement(1)
  41.  if b=true then
  42.   Call RegWriteValue(sPath & sDUN & "\@","",1)
  43.  else
  44.   if RegPathExists(sPath & sDUN) then
  45.      Call RegDeletePath(sPath & sDUN)
  46.   end if
  47.  end if
  48.  
  49.  b=GetUIElement(2)
  50.  if b=true then
  51.   Call RegWriteValue(sPath & sSCH & "\@","",1)
  52.  else
  53.   if RegPathExists(sPath & sSCH) then
  54.    Call RegDeletePath(sPath & sSCH)
  55.   end if
  56.  end if
  57.  
  58.  b=GetUIElement(3)
  59.  if b=true then
  60.   Call RegWriteValue(sPath & sWEB & "\@","",1)
  61.  else
  62.   if RegPathExists(sPath & sWEB) then
  63.    Call RegDeletePath(sPath & sWEB)
  64.   end if
  65.  end if
  66.  
  67.  Call IndicateSettingChange()
  68. END SUB
  69.  
  70. SUB Plugin_Terminate
  71. END SUB